home *** CD-ROM | disk | FTP | other *** search
/ Commodore 64 Scene Diskmags Assortment / Uptime_The_Disk_Monthly_V1_05_19xx_Uptime_staff_Side_B.d64 / apt. of mystery (.txt) next >
Commodore BASIC  |  2023-02-26  |  6KB  |  174 lines
  1. 10 poke 53265,11
  2. 20 poke 53281,0
  3. 30 poke 53280,11
  4. 40 if a=0 then a=1:load"0:lptr rtn",8,1
  5. 50 poke 56,160:clr
  6. 60 print"[147]"chr$(142);
  7. 70 dim a$(95),b$(95)
  8. 80 c$(1)="[151]":c$(2)="[152]":c$(3)="[155]":c$(4)=""
  9. 100 print" [169] [223][146] [156]  [223][146] [159][169] [223][146]   [223][146] [149]   [146] [158] [146]    [146] [154]   [146] [129] [146]   [146]";
  10. 105 print"    "
  11. 110 print"  [146]  [146] [156] [146]  [146] [159] [146]  [146]  [146]  [146]  [149] [146]  [158] [223][146] [169] [146] [154] [146]   [129]  [146]";
  12. 115 print"  [146]   [146]"
  13. 120 print"    [146] [156]  [146][169] [159]   [146]   [146][161]  [149] [146]  [158] [146][223] [146][169] [146] [154]  [146]  [129] [146]   [146]";
  14. 125 print"   [146]"
  15. 130 print"  [146]  [146] [156] [146]   [159] [146]  [146]  [146]  [146]  [149] [146]  [158] [146]    [146] [154] [146]   [129] [146]  ";
  16. 135 print" [146]   [146]"
  17. 140 print"  [146]  [146] [156] [146]   [159] [146]  [146]  [146]  [146]  [149] [146]  [158] [146]    [146] [154]   [146] [129] [146]  ";
  18. 145 print" [146]   [146]"
  19. 200 print"               [169]  [223][146]      "
  20. 210 print"                [146][169][223] [146]   [146]"
  21. 220 print"                [146]   [146]     [146]"
  22. 230 print"                [223][169] [146]   [146]"
  23. 240 print"               [223]  [146][169]   "
  24. 300 print"   [146]    [146] [158] [146]   [146] [159][169]  [170][146]     [146] [153]    [146] [150]   [223][146] [156] [146]   "
  25. 310 print"   [223][146] [169] [146] [158][223]  [146][169] [159] [146]     [182][161]  [153] [146]    [150] [146]   [146] [156][223]  [146][169]"
  26. 320 print"   [146][223] [146][169] [146]  [158][182][161]  [159][223]  [223][146]  [182][161]  [153]   [146]  [150]   [146][161]  [156][182][161]"
  27. 330 print"   [146]    [146]  [158][182][161]     [159] [146]  [182][161]  [153] [146]    [150] [146]   [146]  [156][182][161]"
  28. 340 print"   [146]    [146]  [158][182][161]  [159][165]  [146][169]  [182][161]  [153]    [146] [150] [146]   [146]  [156][182][161]"
  29. 345 poke 53265,27
  30. 400 t$=" published by viking technologies, inc."
  31. 410 gosub 2000
  32. 420 print
  33. 425 gosub 3000
  34. 430 t$="       press spacebar to continue"
  35. 440 gosub 2000
  36. 450 poke 198,0
  37. 600 get a$:if a$<>" " then 600
  38. 610 print"[147][156]   [217]our uncle, the family mystic, has"
  39. 620 print"      passed on to the next world."
  40. 630 gosub 1000
  41. 640 print"[153]  [217]ou were his favorite nephew and in"
  42. 650 print"    your mailbox you found a package"
  43. 660 printtab(15)"from him."
  44. 670 gosub 1000
  45. 680 print" [158][212]he parcel contains your uncle's magic"
  46. 690 print"    [156][208]urple[158] robe and hat, and the key"
  47. 700 print"           to his apartment."
  48. 710 gosub 1000
  49. 720 print" [154][212]here was no note included, but as you"
  50. 730 print"  don the clothes, you are transported"
  51. 740 printtab(18)"to"
  52. 745 gosub 1000
  53. 750 printtab(6)"[164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164][164]"
  54. 760 printtab(6)" [212]he [193]partment of [205]ystery! "
  55. 770 printtab(6)"[163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163][163]"
  56. 800 gosub 3000
  57. 810 t$="       [208]ress [211]pacebar to [195]ontinue"
  58. 820 gosub 2000
  59. 825 poke 198,0
  60. 830 print:print
  61. 840 t$="            [145][164][164][164][164][157][157][157][157] [198]8 [146] for [213]p[212]ime"
  62. 850 gosub 2000
  63. 900 get a$:if a$<>" " and a$<>"[140]" then 900
  64. 910 if a$="[140]" then sys (8*4096)+4
  65. 912 gosub 1500
  66. 915 sys 65418:poke808,234
  67. 920 print"[147][144]    "chr$(34)"mystery.exe"chr$(34)",8"
  68. 940 poke 631,19:poke 632,131
  69. 950 poke 198,2
  70. 960 printtab(10)"[158][207]ne moment please..."
  71. 962 printtab(5)"while the [193]partment of [205]ystery"
  72. 965 printtab(11)"loads into memory.[144]"
  73. 970 end
  74. 1000 for k=1 to 1800:next
  75. 1010 return
  76. 1500 print"[147]     [212]he [193]partment of [205]ystery [158]is played
  77. 1510 [153]" using a rather extensive vocabulary of"
  78. 1520 [153]" nouns and verbs."
  79. 1530 [153]"     (NULL)hile the word list may be called"
  80. 1540 [153]" up and displayed on your screen at any
  81. 1550 print" time during the game, the ability to"
  82. 1560 print" send this list to your printer will
  83. 1570 [153]" only be provided at this time.
  84. 1580 printtab(7)"[215]ould you like a printout"
  85. 1590 printtab(8)"of the game vocabulary?":printtab(17)"([217]/[206])"
  86. 1600 get a$:if a$<>"y" and a$<>"n" then 1600
  87. 1610 if a$="n" then 1700
  88. 1620 print"[147]":gosub 5000
  89. 1700 print"[147] [211]pacebar for [212]he [193]partment of [205]ystery"
  90. 1710 t$="            [145][164][164][164][164][157][157][157][157] [198]8 [146] for [213]p[212]ime":gosub 2000
  91. 1720 get a$:if a$<>" " and a$<>"[140]" then 1720
  92. 1730 if a$="[140]" then sys 8*4096+4
  93. 1740 return
  94. 2000 gosub 1000
  95. 2010 for i=1 to 4
  96. 2020 printc$(i)t$
  97. 2030 for j=1 to 100:next
  98. 2040 print"[145][145]":next
  99. 2050 return
  100. 3000 restore:poke 54296,0:for c=54272 to 54296:poke c,0:next
  101. 3010 x=0:poke 54277,x:poke 54284,x:poke 54291,x:x=240:poke 54278,x:poke 54285,x:poke 54292,x
  102. 3020 poke 54296,15:for l=0 to 40:x=17:poke 54276,x:poke 54283,x:poke 54290,x
  103. 3030 read a,b,c,d,e,f,g:poke 54273,a:poke 54272,b:poke 54280,c:poke 54279,d
  104. 3035 poke 54287,e
  105. 3040 poke 54286,f:for t=1 to (g*2):next
  106. 3042 get a$:if a$="_" then 3050
  107. 3045 next
  108. 3050 x=0:poke 54296,x:poke 54273,x:poke 54280,x:poke 54287,x:poke 54272,x
  109. 3055 poke 54279,x:poke 54286,x
  110. 3060 return
  111. 4000 data 225,143,112,199,56,99,25,200,243,100,121,50,60,50
  112. 4010 data 225,143,112,199,56,99,150,0,0,0,0,0,0,75
  113. 4020 data 200,243,100,121,50,60,25,179,6,89,131,44,193,25
  114. 4030 data 168,250,84,125,42,62,25,150,139,75,69,37,162,25
  115. 4040 data 142,24,71,12,35,134,100,150,139,75,69,37,162,200,0,0,0,0,0,0,100
  116. 4050 data 112,199,56,99,28,49,25,100,121,50,60,26,156,50
  117. 4060 data 112,199,56,99,28,49,150,0,0,0,0,0,0,25
  118. 4070 data 84,125,42,62,21,31,50,89,131,44,193,22,96,50
  119. 4080 data 71,12,35,134,17,195,50
  120. 4090 data 75,69,37,162,18,209,150,0,0,0,0,0,0,250
  121. 4100 data 56,99,28,49,14,24,25,50,60,25,30,12,143,50
  122. 4110 data 56,99,28,49,14,24,150,0,0,0,0,0,0,75
  123. 4120 data 50,60,25,30,12,143,25,44,193,22,96,11,48,25
  124. 4130 data 42,62,21,31,10,143,25,37,162,18,209,9,104,25
  125. 4140 data 35,134,17,195,8,225,100,37,162,18,209,9,104,200,0,0,0,0,0,0,100
  126. 4150 data 0,0,18,209,9,104,100,17,195,18,209,9,104,100
  127. 4160 data 21,31,18,209,9,104,100,25,30,18,209,9,104,100
  128. 4170 data 29,223,25,30,9,104,100,29,223,35,134,9,104,100
  129. 4180 data 29,223,35,134,42,62,600
  130. 4190 data 25,30,28,49,37,162,200,0,0,21,31,0,0,200
  131. 4200 data 9,104,18,209,23,181,1000
  132. 5000 poke 780,4:poke 782,0
  133. 5010 sys 828
  134. 5020 if peek(783) and 1 then close 4:goto 5200
  135. 5060 print#4:print#4,""spc(35)"word list"
  136. 5070 print#4:print#4:print#4,""spc(37)"verbs":print#4
  137. 5080 for i=1 to 29:read a$             
  138. 5105 print#4,a$""spc(16-len(a$));
  139. 5107 next
  140. 5110 print#4:print#4:print#4,""spc(37)"nouns":print#4
  141. 5120 for i=1 to 80:read a$
  142. 5142 print#4,a$""spc(16-len(a$));
  143. 5144 next
  144. 5150 print#4:print#4
  145. 5160 close 4:return
  146. 5200 print"[147]"tab(13)"[195]heck [208]rinter!"
  147. 5210 printtab(12)"[212]ry again? ([217]/[206])"
  148. 5220 get a$
  149. 5230 if a$="y" then 5000
  150. 5240 if a$<>"n" then 5220
  151. 5250 print"[147]":return
  152. 6000 data change,climb,close,cook,cut
  153. 6010 data drink,drop,eat,flush,get
  154. 6020 data go,help,inventory,light,listen
  155. 6030 data lock,look,move,open,plant
  156. 6040 data read,roll,say,take,turn
  157. 6050 data uncle,unlock,wash,watch
  158. 6100 data aspirin,bath,bathroom,bed,bedroom
  159. 6110 data blanket,book,book of poetry,book of spells,books
  160. 6120 data bread,cabinet,cabinets,candle,chair
  161. 6130 data chimney,clock,closet,clothing,cookbook
  162. 6140 data crystal orb,cushion,dictionary,door,drawer
  163. 6150 data drawers,dust,fire escape,fireplace,floor
  164. 6160 data flower pot,fortune cookie,furniture,hall,ice cream
  165. 6170 data incense,inventory,key,kitchen,living room
  166. 6180 data lock,lucky dice,matches,mattress,milk
  167. 6190 data mirror,moth,mothball,mushroom,note
  168. 6200 data oven,pamphlet,picture,pillow,pot
  169. 6210 data potato chips,pyramid,rabbit's foot,razor,refrigerator
  170. 6220 data roof,rope,rug,seeds,shower
  171. 6230 data sign,sink,sleep,soap,stove
  172. 6240 data suit,t.v.,t.v. dinner,table,television
  173. 6250 data toilet,toothpaste,tub,will,window
  174.